home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / debug / Disectv17b.lha / Disect.Install < prev    next >
Encoding:
Text File  |  1995-03-21  |  2.2 KB  |  65 lines
  1. ; $VER: 0.1 Disect Installation script written by Bill Westhead
  2. ; Netmail 2:250/320.20 for more information
  3.  
  4.     (set FALSE 0)
  5.     (set TRUE 1)
  6.     (set @default-dest "SYS:")
  7.     (set DISECT-FILE "DisectDemo.exe")
  8.     (set DISECT-VERS-FILE "Disectv1.7")
  9.  
  10. (procedure Destination
  11.     (message "\nDisect HD installation script by Bill Westhead.\n\n"
  12.             "You are about to install the latest beta version of "
  13.             "Disect to your hard disk. Disect is currently being "
  14.             "beta tested by helpful people such as yourself.\n"
  15.             "If you encounter any bugs, or have any suggestions, "
  16.             "please send mail to one of the addresses below :-\n\n"
  17.             "Internet : disect@twilight.demon.co.uk\n"
  18.             "Fidonet  : 2:250/320.20\n")
  19.             
  20.     (set DMA_dest
  21.         (tackon
  22.         (askdir
  23.         (prompt "Where would you like to install Disect. (A drawer named Disect will be created there.)")
  24.         (help @copylib-help)
  25.         (default @default-dest)
  26.         )"Disect")
  27.     )
  28.  
  29.     (set @default-dest DMA_dest)
  30.  
  31.     (makedir DMA_dest (infos) )
  32.     (makeassign "Disect" DMA_dest)
  33.     (makedir "Disect:Document" (infos) )
  34.     (makedir "Disect:Prefs" (infos) )
  35.     (makedir "Disect:SysSymbol" (infos) )
  36.     (makedir "Disect:Tutorial" (infos) )
  37.  
  38. )
  39.  
  40. (Destination)
  41.  
  42. (complete 19)
  43. (copyfiles (source DISECT-FILE) (dest "Disect:") )
  44.  
  45. (complete 60)
  46. (copyfiles (source DISECT-VERS-FILE) (dest "Disect:") (infos))
  47. (copyfiles (source "Grabmem") (dest "Disect:") (infos))
  48. (copyfiles (source "AllocMultiBin") (dest "Disect:") (infos))
  49. (copyfiles (source "Document/") (pattern "#?") (dest "Disect:Document/") (infos))
  50. (copyfiles (source "Prefs/") (pattern "#?") (dest "Disect:Prefs/") (infos))
  51. (copyfiles (source "SysSymbol/") (pattern "#?") (dest "Disect:SysSymbol/") (infos))
  52. (copyfiles (source "Tutorial/") (pattern "#?") (dest "Disect:Tutorial/") (infos))
  53.  
  54. (complete 95)
  55.  
  56. (startup "Disect_Beta"
  57.         (prompt "An assign will be added to your \"s:user-startup script.\"\n")
  58.         (help @startup-help)
  59.         (command "assign Disect: \""DMA_dest"\" \n")
  60. )
  61.  
  62. (complete 100)
  63. (exit "Disect *Beta* Version Installation Script written \nby\n\nBill Westhead."
  64.       "\n\nScript version 0.2a 21st March 1995")
  65.